home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / acompl1a / modscree.bas < prev    next >
BASIC Source File  |  1999-10-13  |  2KB  |  82 lines
  1. Attribute VB_Name = "modScreenSaver"
  2. '//// If you are using Notepad make sure Word wrap is on ////
  3.  
  4. 'This program was created by Carl Warwick 1999 using VB5
  5. 'professional edition.
  6. 'You can use this program for any purpose as long as no
  7. 'profit is made.
  8.  
  9. 'For a free game created in VB go to http://www.parkstonemot.freeserve.co.uk/indexfw.htm
  10. 'If your into Motocross then go to http://www.dirtrider.net/freeride
  11.  
  12. 'You are free to alter this program or use it in your own
  13. 'programs as long as I'm given credit for it.
  14.  
  15. 'This program demonstrates how to create a screen saver in
  16. 'Visual Basic, it also shows how to make scrolling credits
  17. 'that fade in and out of the screen.
  18.  
  19. 'The Fading, Scrolling credits:-
  20. ' Useful for end credits for a game etc.
  21. ' Easy to adapt for you own programs.
  22. ' Only one label and one timer are required at design time.
  23.  
  24. 'Creating your own Screen Saver:-
  25. ' In the module you'll find the code used to make the screen
  26. '   saver, without this code your screen saver will just run
  27. '   straight away without you even selecting it.
  28. ' It also shows you how to use a settings screen, and saves
  29. '   these settings to control.ini in windows which is where
  30. '   the information for all screen savers is saved.
  31.  
  32. ' Once you have made your screen saver make it into an exe file.
  33. ' Change the file extension to .scr
  34. ' Right click it and click install
  35. ' and there you have it, your very own screen saver...
  36.  
  37. 'E-Mail me at freeride@dirtrider.net
  38.  
  39. Type RGB
  40.     R As Integer
  41.     G As Integer
  42.     B As Integer
  43. End Type
  44.  
  45. Public CreditText(20) As String, NumLines As Integer, i As Integer
  46. Public Colo As RGB, INIFound As Boolean
  47.  
  48.  
  49. Sub Main()
  50.  
  51. ' This is the number of lines of text used
  52. NumLines = 6
  53.  
  54. 'These are the strings returned for use below
  55. '/a = password
  56. '/s = run
  57. '/p = end
  58. '/c = config
  59.  
  60. 'This is the code needed for a screen saver...
  61.     Dim strCmdLine As String
  62.     strCmdLine = Left(Command, 2)
  63.         
  64.     If strCmdLine = "/p" Then
  65.         End
  66.         'on select of your screen saver
  67.     ElseIf strCmdLine = "/c" Then
  68.         Call Load(frmConfig)
  69.         frmConfig.Show
  70.         'Function to call when
  71.         'Settings'
  72.         'button is pushed
  73.     Else
  74.         Call Load(FrmMain)
  75.         FrmMain.Show
  76.         'your screen saver has been loaded
  77.     End If
  78.  
  79.  
  80. End Sub
  81.  
  82.